0 REM  COPY DATA BEHIND PROGRAM           :
1 INPUT"START, END ADDR.";S,E:GOSUB63999:B=X:X=X+46+E-S:Y=INT(X/256):Z=X-256*Y
2 PRINT"[147]P[207] 45,"Z":P[207] 46,"Y":C[204]:S="S:PRINT"E="E":B="B":G[207] 4"
3 POKE198,2:POKE631,13:POKE632,13:END
4 FORI=BTOB+42:READX:POKEI,X:NEXT:X=INT((E+1)/256):Y=E+1-X*256:POKEI,Y
5 POKEI+1,X:I=I+2:FORJ=STOE:POKEI,PEEK(J):I=I+1:NEXT:END:DATA165,20,24,105,43
6 DATA133,95,169,0,101,21,133,96,160,0,177,95,133,88,200,177,95,133,89,230,95
7 DATA230,95,144,2,230,96,165,45,133,90,165,46,133,91,76,191,163
63990 GOSUB63999:SYSX:PRINT"FILE COPIED":RETURN
63999 X=PEEK(61)+256*PEEK(62)+30:RETURN